#!/usr/bin/perl -w

use strict;
use Exporter;

our @ISA=qw/Exporter/;
our @Exporter=qw/GetColorByNum/;

sub GetColorByNum
{
	my ($r,$g,$b)=@_;
	my $color=sprintf("#%02x%02x%02x",$r,$g,$b);
	return $color;
}

1;

